Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_16196.txt

Text File | 1990-08-07 | 12KB | 518 lines

-- card: 16196 from stack: in.0-2
-- bmap block id: 16495
-- flags: 0000
-- background id: 15301
-- name: sound.1
----- HyperTalk script -----
on musicFld
  lock screen
  hideFlds
  show cd fld (short name of target)
  unlock screen
end musicFld


on closeCard
  lock screen
  hideFlds
  hideBtns
end closeCard

on hideflds
  repeat with x = 1 to the number of cd flds
    hide cd fld x
  end repeat
end hideFlds

on hideBtns
  repeat with x = 43 to 48
    hide cd btn id x
  end repeat
end hideBtns



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=73 top=262 right=284 bottom=107
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Harpsichord
----- HyperTalk script -----
on mouseUp
  lock screen
  musicFld
  show cd btn id 43
  unlock screen
  play "Harpsichord" fe ae fe c5e f4e f5e es ds cs ds cs bb4s as  bbs as gs fe ae c5e a4e f5e c5 a5s c6s bb5s c6s a5s c6s bb5s c6s a5s c6s bb5s c6s f5s as gs as f5s as gs as  f5s as gs as d5s
  play "Harpsichord" f5s es fs d5s fs es fs d5s fs es fs b4e ge d5e b4e f5e de g5s as gs fs es fs es ds cs ds cs bb4s a4e d5s cs b4s c5s b4s as gs as gs fs e4s fs es ds ce c5s b4s c5e e4e fe c5e e4e c5e d4e be c5q c0q c0w.
end mouseUp




-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=125 top=249 right=271 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Boing
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd btn id 44
  musicFld
  unlock screen
  play "boing"  tempo 100 a4e. f g ch ce. g a fh
end mouseUp




-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=172 top=239 right=261 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other instruments
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd btn id 45
  musicFld
  unlock screen
  play "EPiano" tempo 125 c4q g e(b)q. de c e(b) d c b3 d4 g3q c4e g3 d4 g3 e(b)4 ds c de g3e c4e g3s c4 de g3s d4 e(b)e ds c de gs f e(b) d c e(b) d c b3 d4 cw
end mouseUp




-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=257 top=251 right=273 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound effects
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd btn id 46
  musicFld
  unlock screen
  play "BrokenGlass"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=308 top=238 right=260 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Recorded music
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd btn id 47
  musicFld
  unlock screen
  play "Hallelujah"
  wait until the sound is "done"
  wait 15
  play "Hallelujah"
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=355 top=228 right=250 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Human voices
----- HyperTalk script -----
on mouseUp
  lock screen
  show cd btn id 48
  musicFld
  unlock screen
  play "John?"
  wait 85
  play "Marsha?"
  wait 70
  play "John!"
  wait 1 second
  play "It's Bob!"
end mouseUp




-- part 19 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=52 top=82 right=302 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Harpsichord
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 43
  hide me
end mouseUp



-- part 20 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=52 top=80 right=301 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Boing
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 44
  hide me
end mouseUp



-- part 21 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=51 top=80 right=301 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other instruments
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 45
  hide me
end mouseUp



-- part 22 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=57 top=83 right=302 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sound effects
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 46
  hide me
end mouseUp



-- part 23 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=53 top=81 right=301 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Recorded music
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 47
  hide me
end mouseUp



-- part 24 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=55 top=81 right=300 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Human voices
----- HyperTalk script -----
on mouseUp
  lock screen
  hide cd btn id 48
  hide me
end mouseUp



-- part 43 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=313 top=271 right=293 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "harpsichord"
end mouseUp



-- part 44 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=313 top=271 right=293 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "boing"
end mouseUp



-- part 45 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=313 top=271 right=293 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "Other instruments"
end mouseUp



-- part 46 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=314 top=272 right=294 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "Sound effects"
end mouseUp



-- part 47 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=313 top=271 right=293 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "Recorded music"
end mouseUp



-- part 48 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=313 top=271 right=293 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hear It Again!
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "Human voices"
end mouseUp



-- part contents for background part 1
----- text -----
HyperCard gives you the power to use many kinds of sounds in your stacks—from digitized voices and recorded musical selections imported from outside HyperCard to tunes written within HyperCard using the sounds that come with the program.  Click the notes below to hear some examples:

-- part contents for card part 19
----- text -----
“Harpsichord” is one of the sounds that comes with HyperCard.  You can write music within HyperCard using the “play” command
(as was done in this example):


   on mouseUp
        play "Harpsichord" c d e f g a b c, etc...
   end mouseUp




(CLICK IN THIS FIELD TO HIDE IT)



 (CLICK IN THIS FIELD TO HIDE IT)

-- part contents for card part 20
----- text -----
“Boing” is another sound that comes with HyperCard.  The script below uses HyperCard’s “play” command to tell HyperCard what notes to play.  “Boing” is the sound used, and the letters that follow tell HyperCard what notes to play, how fast to play them, what rhythm to give them, and in which octave to play them. If you can read and write music, you can easily write music within HyperCard.

          on mouseUp
                 play "boing" tempo 100 a4e. f g ch ce. g a fh
          end mouseUp

(CLICK IN THIS FIELD TO HIDE IT)

-- part contents for card part 21
----- text -----
Sounds can be easily digitized using programs like MacRecorder™and imported into HyperCard stacks with utilities like ResCopy®. This “Electric piano” sound was imported into this stack with ResCopy and is activated with HyperCard’s play command:

     on mouseUp
          play "Electric piano" tempo 125 c g e d a b....etc.
     end mouseUp




 (CLICK IN THIS FIELD TO HIDE IT)

-- part contents for card part 22
----- text -----
Any sound effect you’d like can be digitized and imported into your stacks—from bird calls (in an ornithology stack) and
creaking doors (in an adventure game) to the “BrokenGlass”sound used in this script:

       on mouseUp
           play "BrokenGlass"
       end mouseUp




(CLICK IN THIS FIELD TO HIDE IT)

-- part contents for card part 23
----- text -----
You can easily import passages of recorded music into your stacks.  Caution: Digitized sound files use a lot of disk space
(“Hallelujah” takes up 22 K of disk space!).

     on mouseUp
          play "Hallelujah"
          wait 1 second
          play "Hallelujah"
     end mouseUp



(CLICK IN THIS FIELD TO HIDE IT)

 (CLICK IN THIS FIELD TO HIDE IT)


-- part contents for card part 24
----- text -----
Many stacks use human voices to give feedback; stacks that teach languages often use human voices to teach pronunciation.  The script below launches the dialogue you’ve just heard:

         on mouseUp
              play "John?"
              play "Marsha?"
              play "John!"
              play "It's Bob!"
         end mouseUp


(CLICK IN THIS FIELD TO HIDE IT)